(FILECREATED " 5-JUL-83 23:34:54" {PHYLUM}<GABRIEL>TPRINT.;4 2049   

      changes to:  (FNS INIT TIMIT)
		   (VARS TPRINTCOMS)

      previous date: " 5-JUL-83 14:56:25" {PHYLUM}<GABRIEL>TPRINT.;1)


(PRETTYCOMPRINT TPRINTCOMS)

(RPAQQ TPRINTCOMS ((FNS INIT INIT1 TPRINT TIMIT)
		   (VARS TESTATOMS (TESTPATTERN (INIT 6 6 TESTATOMS)))
		   (GLOBALVARS TESTATOMS TESTPATTERN BIGWINDOW)))
(DEFINEQ

(INIT
  (LAMBDA (M N ATOMS)                                        (* JonL " 5-JUL-83 23:34")
    (DECLARE (GLOBALVARS BIGWINDOW))
    (PROG ((ATOMS (SUBST NIL NIL ATOMS)))
          (SETQ BIGWINDOW
	    (CREATEW (create REGION
			     LEFT ← 150
			     BOTTOM ← 50
			     WIDTH ← 800
			     HEIGHT ← 700)))
          (DSPSCROLL T BIGWINDOW)
          (DSPYPOSITION 0 BIGWINDOW)
          (bind (A1 ← ATOMS) do (pop A1) until (NULL (CDR A1)) finally (RPLACD A1 ATOMS))
          (RETURN (INIT1 M N ATOMS)))))

(INIT1
  (LAMBDA (M N ATOMS)                                        (* JonL " 5-JUL-83 13:26")
    (COND
      ((ZEROP M)
	(pop ATOMS))
      (T (bind A for I from N by -2 until (ILESSP I 1)
	    do (push A (pop ATOMS))
	       (push A (INIT1 (SUB1 M)
			      N ATOMS))
	    finally (RETURN A))))))

(TPRINT
  (LAMBDA (WINDOW)                                           (* JonL " 5-JUL-83 14:55")
    (PRINT TESTPATTERN WINDOW)
    T))

(TIMIT
  (LAMBDA NIL
    (DECLARE (GLOBALVARS BIGWINDOW))                         (* JonL " 5-JUL-83 23:29")
    (TOTOPW W)
    (TIMEALL (TPRINT W))))
)

(RPAQQ TESTATOMS (ABCDEF12 CDEFGH23 EFGHIJ34 GHIJKL45 IJKLMN56 KLMNOP67 MNOPQR78 OPRST89 QRSTUV90 
			   STUVWX01 UVWXYZ12 WXYZAB23 XYZABC34 123456AB 234567BC 345678CD 456789DE 
			   567890EF 678901FG 789012GH 890123HI))

(RPAQ TESTPATTERN (INIT 6 6 TESTATOMS))
(DECLARE: DOEVAL@COMPILE DONTCOPY

(ADDTOVAR GLOBALVARS TESTATOMS TESTPATTERN BIGWINDOW)
)
(PUTPROPS TPRINT COPYRIGHT (NONE))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (397 1629 (INIT 407 . 958) (INIT1 960 . 1315) (TPRINT 1317 . 1459) (TIMIT 1461 . 1627)))
))
STOP